
// (ERLANG)/doc/tutorial/complex.c

unit funcs;

interface

function foo(x: Integer): Integer;
function bar(y: Integer): Integer;

implementation

function foo(x: Integer): Integer;
begin
  Result := x+1;
end;

function bar(y: Integer): Integer;
begin
  Result := y*2;
end;

end.